#对h2o包的下载与检修

if ("package:h2o" %in% search()) { detach("package:h2o", unload=TRUE) }
pkgs <- c("RCurl","jsonlite")
for (pkg in pkgs) {
  if (! (pkg %in% rownames(installed.packages()))) { install.packages(pkg) }
}
install.packages("h2o", type="source", repos=(c("http://h2o-release.s3.amazonaws.com/h2o/latest_stable_R")))

#检查是否下载成功
library(h2o)
localH2O = h2o.init()
demo(h2o.kmeans)


h2o.init()

help(h2o)

#对data.table升级
install.packages ('h2o')
install.packages ('bit64')
install.packages ('data.table')
data.table :: update.dev.pkg ()
packageVersion("data.table")
